% V20210224 - 7.7.16 valign

INCLUDE "GW.bas"

% Create page.
p=GW_NEW_PAGE()

% Prepare title bar string.
ti$=GW_ADD_BAR_TITLE$("Shelf valign top")
GW_ADD_TITLEBAR(p, ti$)

% Add shelf, 2 columns with respectively 1 and 4 buttons
GW_SHELF_OPEN(p)
GW_ADD_BUTTON(p, "Forever alone", "")
GW_SHELF_NEWCELL(p)
FOR i=1 TO 4
 GW_ADD_BUTTON(p, "Lil Soldier #"+INT$(i), "")
NEXT
GW_SHELF_CLOSE(p)

% Same, but force 1st column to vertically align at top
GW_USE_THEME_CUSTO_ONCE("style='vertical-align:top'")
GW_SHELF_OPEN(p)
GW_ADD_BUTTON(p, "Forever alone", "")
GW_SHELF_NEWCELL(p)
FOR i=1 TO 4
 GW_ADD_BUTTON(p, "Lil Soldier #"+INT$(i), "")
NEXT
GW_SHELF_CLOSE(p)

% Render the page.
GW_RENDER(p)

% Wait for user input.
DO
  r$=GW_WAIT_ACTION$()
  POPUP r$

UNTIL r$="BACK"

END "End of Shelf valign top Test"